home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / h / hot_link_edition / hotlinkedition1.dms / hotlinkedition1.adf / Install-HotLinks < prev    next >
Text File  |  1992-02-10  |  4KB  |  146 lines
  1. ; HotLinks Hard Drive Installation Script
  2.  
  3. ; set up a error cleanup routine
  4. (onerror
  5.     (makeassign "HLInstPgm" (safe))
  6. )
  7.  
  8. ;just started
  9. (complete 0)
  10.  
  11. ; just in case the installation was restarted, nuke the assign
  12. (makeassign "HLInstPgm" (safe))
  13.  
  14. ;get the directory to copy hotlinks to
  15. (set hl_dest
  16.         (tackon
  17.             (askdir
  18.                 (prompt "In which disk or drawer should HotLinks be installed?")
  19.                 (help @askdir-help)
  20.                 (default @default-dest)
  21.             )
  22.                 "HotLinks"
  23.         )
  24. )
  25.  
  26. ; now lock on to volume 'HotLinks_Editions_Boot'
  27. (askdisk
  28.     (prompt "Please insert the disk labeled \"HotLinks_Editions_Boot\" into any drive")
  29.     (help    "The HotLinks program and related files will be copied from the "
  30.             "\"HotLinks_Editions_Boot\" disk onto your system.")
  31.     (dest  "HotLinks_Editions_Boot")
  32.     (newname "HLInstPgm")
  33. )
  34.  
  35. (complete 20)
  36.  
  37. ; at this point we have a valid destination, so we tell installer where
  38. ; the application will end up so the exit page will be correct -- also,
  39. ; the installation log file (if any) will be copied to the destination
  40. (set @default-dest hl_dest)
  41.  
  42. ;copy all the program files from source to dest
  43. (copyfiles
  44.         (prompt "This will create a new drawer called \"HotLinks\" and "
  45.                 "will copy the following files and drawers."
  46.         )
  47.         (source "HLInstPgm:HotLinks")
  48.         (dest hl_dest)
  49.         (all)
  50.         (infos)
  51.         (confirm)
  52.         (help @copyfiles-help)
  53. )
  54.  
  55. (complete 40)
  56.  
  57. ;copy the hotlinks.library to LIBS:
  58. (copyfiles
  59.         (prompt "This will copy the hotlinks.library to LIBS:" )
  60.         (source "HLInstPgm:libs/hotlinks.library")
  61.         (dest "LIBS:")
  62.         (confirm)
  63.         (help @copyfiles-help)
  64. )
  65.  
  66. (complete 60)
  67.  
  68. ;fix the icon for the newly created drawer to not be "snapshot"
  69. (tooltype
  70.     (dest hl_dest)
  71.     (noposition)
  72. )
  73.  
  74. ;add the assign and path commands, if the user wants them
  75. (set hl_assign ("c:assign HOTLINKS: \"%s\"\n" (tackon hl_dest "Editions")))
  76. (set hl_path ("c:path \"%s\" ADD\n" hl_dest))
  77. (startup 
  78.         "HotLinks"
  79.         (prompt "Two commands need to be added to your s:user-startup file "
  80.                 "in order to use HotLinks.\n"
  81.                 "The commands to add are:\n\n"
  82.                 hl_assign
  83.                 hl_path
  84.                 "\nDo you want these to be added?" )
  85.         (help @startup-help)
  86.         (command hl_assign)
  87.         (command hl_path)
  88. )
  89.  
  90. (complete 80)
  91.  
  92. ;execute the assign and path command
  93. (run hl_assign)
  94.  
  95. ;get the users registration number
  96. (set hl_sernum
  97.         (asknumber 
  98.                 (prompt "The HotLinks program needs to be serialized before it can be properly used.\n"
  99.                         "Please enter the registration number printed on your disk.")
  100.                 (help @asknumber-help)
  101.                 (default 1)
  102.         )
  103. )
  104.  
  105. (complete 90)
  106.  
  107. ;serialize the hotlinks resident code
  108. ;build the command
  109. (set hl_fixcom
  110.         ("\"%s\" %ld 1"
  111.                 (tackon
  112.                         ("%s" hl_dest)
  113.                         "hlser"
  114.                 ) 
  115.                 hl_sernum
  116.         )
  117. )
  118. ;and ask the user if it should be run
  119. (run
  120.         hl_fixcom
  121.         (prompt "Your copy of HotLinks needs to be serialized.\n"
  122.                 "The following command will accomplish this:\n\n"
  123.                 hl_fixcom
  124.         )
  125.         (confirm)
  126.         (help "HotLinks needs to be serialized before it can be properly used. "
  127.               "To do this we have provide a program (hlser) that takes as its "
  128.               "argument a serial number. This number will be written into the "
  129.               "hl.pwd (hotlinks password) file. Each time HotLinks is run the "
  130.               "serial number wil be read and used to create a unique file.\n"
  131.               "Each copy of HotLinks should have a different serial number or "
  132.               "conflicts will result when transfering files between different "
  133.               "HotLink systems.\n"
  134.               "This command need only be run once."
  135.         )
  136. )
  137.  
  138. ;done with the install
  139. (complete 100)
  140.  
  141. ; cleanup
  142. (makeassign "HLInstPgm" (safe))
  143.  
  144. ;and get out
  145. (exit)
  146.